home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 1.iso
/
ARGONET
/
PD
/
MATHS
/
RLAB
/
RLAB125.ZIP
/
!RLaB
/
rlib
/
save
< prev
next >
Wrap
Text File
|
1994-09-23
|
557b
|
30 lines
//-------------------------------------------------------------------//
// Syntax: save ( )
// save ( FILE )
// Description:
// The save function writes the contents of all the workspace
// variables to a file. The default file, if none is specified is
// "SAVE".
//
//-------------------------------------------------------------------//
save = function ( FILE )
{
if (!exist (FILE))
{
FILE = "SAVE";
}
for (i in members ($$))
{
if (class ($$.[i]) != "function")
{
writeb (FILE, $$.[i]);
}
}
close (FILE);
};